home *** CD-ROM | disk | FTP | other *** search
- '**************************************************************************
- '* packet.mst
- '**************************************************************************
-
-
- '$INCLUDE 'setupapi.inc'
- '$INCLUDE 'msdetect.inc'
-
- ''Dialog ID's
- CONST WELCOME = 100
- CONST ASKQUIT = 200
- CONST DESTPATH = 300
- CONST EXITFAILURE = 400
- CONST EXITQUIT = 600
- CONST EXITSUCCESS = 700
- CONST OPTIONS = 800
- CONST APPHELP = 900
- CONST BADPATH = 6400
-
- ''Bitmap ID
- CONST LOGO = 1
-
- GLOBAL DEST$ ''Default destination directory.
- GLOBAL DESTA$
- GLOBAL DESTB$
- GLOBAL DESTC$
- GLOBAL DESTD$
- GLOBAL DESTE$
- GLOBAL DESTF$
- GLOBAL OPTCUR$ ''Option selection from option dialog.
-
- DECLARE SUB Install
- DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
-
-
- INIT:
- CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
- HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
-
- SetBitmap CUIDLL$, LOGO
- SetTitle "Visual PacketPeT Lite"
-
- szInf$ = GetSymbolValue("STF_SRCINFPATH")
- IF szInf$ = "" THEN
- szInf$ = GetSymbolValue("STF_CWDDIR") + "PACKET.INF"
- END IF
- ReadInfFile szInf$
-
- OPTCUR$ = "1"
- DEST$ = "C:\PETLITE"
- DESTA$ = "\CONN"
- DESTB$ = "\LOG\CONNECTS"
- DESTC$ = "\MON"
- DESTD$ = "\LOG\MSG_SENT"
- DESTE$ = "\UPLOADS"
- DESTF$ = "\SIGS"
-
-
- WELCOME:
- sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
- IF sz$ = "CONTINUE" THEN
- UIPop 1
- ELSE
- GOSUB ASKQUIT
- GOTO WELCOME
- END IF
-
-
- GETPATH:
- SetSymbolValue "EditTextIn", DEST$
- SetSymbolValue "EditFocus", "END"
- GETPATHL1:
- sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
- DEST$ = GetSymbolValue("EditTextOut")
-
- IF sz$ = "CONTINUE" THEN
- IF IsDirWritable(DEST$) = 0 THEN
- GOSUB BADPATH
- GOTO GETPATHL1
- END IF
- UIPop 1
- ELSEIF sz$ = "REACTIVATE" THEN
- GOTO GETPATHL1
- ELSEIF sz$ = "BACK" THEN
- UIPop 1
- GOTO WELCOME
- ELSE
- GOSUB ASKQUIT
- GOTO GETPATH
- END IF
-
-
- Install
-
-
- QUIT:
- ON ERROR GOTO ERRQUIT
-
- IF ERR = 0 THEN
- dlg% = EXITSUCCESS
- ELSEIF ERR = STFQUIT THEN
- dlg% = EXITQUIT
- ELSE
- dlg% = EXITFAILURE
- END IF
- QUITL1:
- sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
- IF sz$ = "REACTIVATE" THEN
- GOTO QUITL1
- END IF
- UIPop 1
-
- END
-
- ERRQUIT:
- i% = DoMsgBox("Setup sources were corrupted, call (407) 679-9017!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
- END
-
-
-
- BADPATH:
- sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
- IF sz$ = "REACTIVATE" THEN
- GOTO BADPATH
- END IF
- UIPop 1
- RETURN
-
-
-
- ASKQUIT:
- sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
-
- IF sz$ = "EXIT" THEN
- UIPopAll
- ERROR STFQUIT
- ELSEIF sz$ = "REACTIVATE" THEN
- GOTO ASKQUIT
- ELSE
- UIPop 1
- END IF
- RETURN
-
- SUB Install STATIC
-
- SrcDir$ = GetSymbolValue("STF_SRCDIR")
- CreateDir DEST$, cmoNone
- CreateDir DEST$+DESTA$, cmoNone
- CreateDir DEST$+DESTB$, cmoNone
- CreateDir DEST$+DESTD$, cmoNone
- CreateDir DEST$+DESTC$, cmoNone
- CreateDir DEST$+DESTE$, cmoNone
- CreateDir DEST$+DESTF$, cmoNone
-
-
- OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
- WriteToLogFile ""
- WriteToLogFile " User chose as destination directory: '" + DEST$ + "'"
- WriteToLogFile " User chose option: '" + OPTCUR$ + "'"
- WriteToLogFile ""
- WriteToLogFile "May have had to create the directory: " + DEST$
- WriteToLogFile ""
-
- AddSectionFilesToCopyList "petlite", SrcDir$, DEST$
- AddSectionFilesToCopyList "signatures", SrcDir$, DEST$ + DESTF$
-
-
- CopyFilesInCopyList
-
- ini$ = MakePath(DEST$, "pet.ini")
- CreateIniKeyValue ini$, "Install Path", "Path ", DEST$+"\" , cmoOverwrite
-
- CreateProgmanGroup "Visual PacketPeT Lite", "", cmoNone
- ShowProgmanGroup "Visual PacketPeT Lite", 1, cmoNone
- CreateProgmanItem "Visual PacketPeT Lite", "PeTLite", MakePath(DEST$,"packet.exe"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "PeT Help", "winhelp.exe "+MakePath(DEST$,"packet.hlp"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "Readme", "notepad.exe "+MakePath(DEST$,"readme.txt"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "Order Blank", "notepad.exe "+MakePath(DEST$,"order.txt"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "Register", "notepad.exe "+MakePath(DEST$,"register.txt"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "License", "notepad.exe "+MakePath(DEST$,"license.txt"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "Full Version", "notepad.exe "+MakePath(DEST$,"retail.txt"), "", cmoOverwrite
- CreateProgmanItem "Visual PacketPeT Lite", "COM Problems?", "notepad.exe "+MakePath(DEST$,"hardware.txt"), "", cmoOverwrite
-
-
- AddDos5Help "PACKET", "Packet Terminal program for MSWINDOWS"+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
-
- CloseLogFile
-
- END SUB
-
-
- FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
- IF szDir$ = "" THEN
- MakePath = szFile$
- ELSEIF szFile$ = "" THEN
- MakePath = szDir$
- ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
- MakePath = szDir$ + szFile$
- ELSE
- MakePath = szDir$ + "\" + szFile$
- END IF
- END FUNCTION
-
-